home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aau.d64 / keybd.ovly.c-64 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  137 lines
  1. 100 REM      BLANK KEYBOARD OVERLAYS
  2. 110 REM
  3. 120 REM    FOR COMMODORE-64 AND VIC-20
  4. 130 REM
  5. 140 REM       -------------------
  6. 150 REM
  7. 160 REM      MARSHALL F. SCHULTZ CDP
  8. 170 REM
  9. 180 REM   COMMODORE HOUSTON USER GROUP
  10. 190 REM
  11. 200 REM       -------------------
  12. 210 REM
  13. 220 REM    REQUIRES A 1525 OR MPS-801
  14. 230 REM
  15. 240 REM            PRINTER
  16. 250 REM
  17. 260 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  18. 270 REM "[221] WRITTEN  APRIL 25, 1986 [221]"
  19. 280 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  20. 290 REM
  21. 300 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  22. 310 REM "[221]LAST UPDATE APRIL 25, 1986[221]"
  23. 320 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  24. 330 REM ===============================
  25. 340 REM =THIS PROGRAM IS PUBLIC DOMAIN=
  26. 350 REM ===============================
  27. 360 REM
  28. 370 G1$="[176]":G2$="[174]":G3$="[192]":G4$="[173]":G5$="[189]":G6$="[221]"
  29. 380 S1$="                                     "
  30. 390 S2$=LEFT$(S1$,1)
  31. 400 S3$=LEFT$(S1$,4)
  32. 410 S4$=LEFT$(S1$,6)
  33. 420 S5$=LEFT$(S1$,14)
  34. 430 S6$=LEFT$(S1$,29)
  35. 440 D1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  36. 450 D2$=LEFT$(D1$,7)
  37. 460 D3$=LEFT$(D1$,14)
  38. 470 L1$=S3$+G6$+S1$+S1$+G6$
  39. 480 L2$=S3$+G6$+S5$+G6$+S6$+G6$+S6$+G6$
  40. 490 L3$=S3$+G6$+S4$+G6$+S1$+G6$+S6$+G6$
  41. 500 H1$=S3$+"[213][192][201]"+LEFT$(S5$,7)
  42. 510 H2$=S3$+"[165] [167]"+LEFT$(S5$,7)
  43. 520 H3$=S3$+"[202][192][203]"+LEFT$(S5$,7)
  44. 530 TX$(1)="  CEMENT THIS PRINTED FORM TO POSTER "
  45. 540 TX$(2)="  BOARD STOCK USING RUBBER CEMENT OR "
  46. 550 TX$(3)="  WHITE GLUE. THEN CUT OUT THE FORM  "
  47. 560 TX$(4)="  USING AN EXACTO KNIFE.             "
  48. 570 TX$(5)="                                     "
  49. 580 TX$(6)="  USE YOUR WORD PROCESSOR TO PRINT   "
  50. 590 TX$(7)="  LISTS OF COMMANDS, REMINDER NOTES, "
  51. 600 TX$(8)="  OR WHATEVER YOU WISH TO CEMENT TO  "
  52. 610 TX$(9)="  THE FACE OF THE OVERLAY            "
  53. 620 POKE 53280,6:POKE53281,6
  54. 630 PRINT"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
  55. 640 PRINT"[221]                                      [221][146]";
  56. 650 PRINT"[221]     PRINT BLANK KEYBOARD OVERLAY     [221][146]";
  57. 660 PRINT"[221]                                      [221][146]";
  58. 670 PRINT"[221]      FOR COMMODORE-64 OR VIC-20      [221][146]";
  59. 680 PRINT"[221]                                      [221][146]";
  60. 690 PRINT"[221]    USING 1525 OR MPS-801 PRINTER     [221][146]";
  61. 700 PRINT"[221]                                      [221][146]";
  62. 710 PRINT"[221]                                      [221][146]";
  63. 720 PRINT"[221]        MARSHALL F. SCHULTZ CDP       [221][146]";
  64. 730 PRINT"[221]                                      [221][146]";
  65. 740 PRINT"[221]      COMMODORE HOUSTON USER GROUP    [221][146]";
  66. 750 PRINT"[221]                                      [221][146]";
  67. 760 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";:PRINT
  68. 770 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
  69. 780 PRINT"[221] THIS PROGRAM IS IN THE PUBLIC DOMAIN [221][146]";
  70. 790 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
  71. 800 PRINT"        PRESS ANY KEY TO PRINT"
  72. 810 GET Z$:IF Z$="" THEN810
  73. 820 PRINT"WORKING. . ."
  74. 830 OPEN 4,4
  75. 840 PRINT#4,CHR$(27);CHR$(69)
  76. 850 PRINT#4,CHR$(14);"    BLANK KEYBOARD OVERLAY FOR C-64";CHR$(15);CHR$(10)
  77. 860 PRINT#4,"                      MARSHALL F. SCHULTZ"
  78. 870 PRINT#4,"                  COMMODORE HOUSTON USER GROUP"
  79. 880 PRINT#4,"                         HOUSTON, TEXAS";CHR$(10)
  80. 890 PRINT#4,CHR$(10)
  81. 900 PRINT#4,S3$+G1$;
  82. 910 FOR X=1 TO 74:PRINT#4,G3$;:NEXT:PRINT#4,G2$
  83. 920 FOR X=1 TO 4
  84. 930 PRINT#4,L1$
  85. 940 NEXT
  86. 950 PRINT#4,S3$+G6$+S5$+G1$+D3$+G2$+S1$+LEFT$(S1$,7)+G6$
  87. 960 PRINT#4,S3$+G6$+S5$+G6$+S5$+G4$+D3$+G2$+S6$+G6$
  88. 970 FOR X=1 TO 10
  89. 980 PRINT#4,L2$
  90. 990 NEXT
  91. 1000 PRINT#4,S3$+G6$+S4$+G1$+D2$+G5$+S6$+G6$+S6$+G6$
  92. 1010 FOR X=1 TO 5
  93. 1020 PRINT#4,L3$
  94. 1030 NEXT
  95. 1040 FOR X=1 TO 9
  96. 1050 PRINT#4,S3$;G6$;S4$;G6$;TX$(X);G6$;S6$;G6$
  97. 1060 NEXT
  98. 1070 FOR X=1 TO 26
  99. 1080 PRINT#4,L3$
  100. 1090 NEXT
  101. 1100 PRINT#4,S3$+G6$+S4$+G4$+D2$+G2$+S6$+G6$+S6$+G6$
  102. 1110 FOR X=1 TO 18
  103. 1120 PRINT#4,L2$
  104. 1130 NEXT
  105. 1140 PRINT#4,S3$+G6$+S5$+G4$+D3$+G2$+S5$+G6$+S6$+G6$
  106. 1150 PRINT#4,S3$+G6$+S6$+G4$+D3$+G5$+S6$+G6$
  107. 1160 FOR X=1 TO 4:PRINT#4,L1$:NEXT
  108. 1170 PRINT#4,S3$;G6$;S5$;G1$;D1$;G2$;S6$;G6$
  109. 1180 FOR X=1 TO 2
  110. 1190 PRINT#4,L2$
  111. 1200 NEXT
  112. 1210 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H1$+G6$
  113. 1220 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H2$+G6$
  114. 1230 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H3$+G6$
  115. 1240 PRINT#4,L2$
  116. 1250 PRINT#4,S3$;G6$;S5$;G4$;D1$;G5$;S6$;G6$
  117. 1260 FOR X=1 TO 6:PRINT#4,L1$:NEXT
  118. 1270 PRINT#4,S3$+G4$;
  119. 1280 FOR X=1 TO 74:PRINT#4,G3$;:NEXT:PRINT#4,G5$
  120. 1290 PRINT#4,CHR$(12)
  121. 1300 CLOSE4
  122. 1310 PRINT"                                      "
  123. 1320 PRINT"ANOTHER COPY (Y/N)  N"
  124. 1330 PRINT"                                      "
  125. 1340 INPUT"                  [145][145]";R$
  126. 1350 IF R$="Y"THEN630
  127. 1360 END
  128. 2980 REM *****************************
  129. 2990 REM    RESAVE AFTER PGM CHANGE
  130. 3000 CLOSE15
  131. 3010 OPEN15,8,15,"S0:KEYBD.OVLY.C-64"
  132. 3020 PRINT#15,"V0":CLOSE15
  133. 3030 SAVE"0:KEYBD.OVLY.C-64",8
  134. 3040 VERIFY"0:KEYBD.OVLY.C-64",8
  135. 3050 LIST-2900
  136. 3060 END
  137.